   1 .
   2 .
   3 .
   4 .HALLOWEEN GHOST
   5 .BY J.WILKINSON
   8 :return 
   9 for Z=1to 3000;next Z
  10 clear ;BC=rnd (256)-1
  20 FC=BC+4+rnd (32)mul 8;gosub 1748
  50 X=-32;Y=18;box X,Y,30,2,3
 110 Y=16;box X,Y,34,2,3
 130 Y=14;box X,Y,38,2,3
 150 Y=12;box X,Y,42,2,3
 170 Y=10;box X,Y,46,2,3
 190 Y=0;box X,Y,50,17,3
 210 Y=-10;box X,Y,46,3,3
 230 Y=-13;box X,Y,42,3,3
 250 Y=-16;box X,Y,38,3,3
 270 Y=-22;box X,Y,34,10,3
 290 Y=-28;box X,Y,30,1,3
 310 Y=-29;box X,Y,26,1,3
 330 Y=-30;box X,Y,22,1,3
 350 Y=-31;box X,Y,18,1,3
 500 .R/SKT
 510 X=-23;Y=8;box X,Y,3,2,2
 520 Y=0;box X,Y,10,14,2
 530 Y=-8;box X,Y,4,2,2
 800 .L/SKT
 810 X=-41;Y=8;box X,Y,4,2,2
 820 Y=0;box X,Y,10,14,2
 830 Y=-8;box X,Y,3,2,2
1200 .NOSE
1220 X=-32;Y=-10;box X,Y,2,2,2
1240 Y=-11;box X,Y,4,2,2
1260 Y=-12;box X,Y,8,2,2
1280 Y=-13;box X,Y,6,2,2
1300 Y=-14;box X,Y,10,2,2
1320 Y=-16;box X,Y,6,1,2
1400 .MOUTH
1420 X=-32;Y=-24;box X,Y,10,2,2
1440 X=-26;Y=-22;box X,Y,2,2,2
1460 X=-24;Y=-20;box X,Y,2,2,2
1510 X=-38;Y=-22;box X,Y,2,2,2
1530 X=-40;Y=-20;box X,Y,2,2,2
1600 .R/EYE
1610 X=-26;Y=-4;A=rnd (5)
1615 X=X+A;Y=Y+A;box X,Y,4,6,1
1620 B=rnd (8)
1621 if B=1goto 1640
1622 if B=2goto 1740
1623 if B=3goto 2000
1624 if B=4goto 2010
1625 if B=5goto 2020
1626 if B=6goto 2030
1627 if B=7goto 1740
1628 if B=8goto 5
1640 for Z=1to 2000;next Z
1641 box X,Y,4,6,2;goto 1600
1700 .L/EYE
1710 J=-44;K=-3;C=rnd (5)
1715 J=J+C;K=K+C;box J,K,4,6,1
1720 E=rnd (8)
1721 if E=1goto 1740
1722 if E=2goto 1640
1723 if E=3goto 3000
1724 if E=4goto 3010
1725 if E=5goto 3020
1726 if E=6goto 3030
1727 if E=7goto 3040
1728 if E=8goto 5
1740 for Z=1to 2000;next Z
1741 box J,K,4,6,2;goto 1700
1748 CX=25;CY=20;print "* * *
1760 CX=-2;CY=10;print "HORRIBLE HARRY
1780 CX=0;CY=0;print "THE INSULTING
1800 CX=17;CY=-10;print "TV GHOST
1820 CX=6;CY=-20;print "MYSTERIOUSLY
1840 CX=22;CY=-30;print "APPEARS
1860 CX=-62;print "--HERE EVERY HALLOWEEN--";for Z=1to 1500;next Z;return 
2000 CY=32;print "  WHAT IS YOUR PROBLEM?--";goto 1740
2010 CY=32;print "  YOU LOOK TERRIBLE!!!---";goto 1740
2020 CY=32;print " THAT CAN'T BE -YOUR FACE-";goto 1740
2030 CY=32;print " YIPES!!-YOU SURE ARE UGLY";goto 1740
3000 CY=32;print "  YOUR WORMS ARE SHOWING-";goto 1640
3010 CY=32;print "  ... WHO DUG YOU UP? ...";goto 1640
3020 CY=32;print " HOW COME YOU HAVE 3 EYES?
3021 X=-32;Y=12;box X,Y,7,9,2;box X,Y,10,3,2;box X,Y,3,4,1;goto 5
3030 CY=32;print " YOU LOOK LIKE THE -DEVIL-";goto 1640
3040 CY=32;print " I'D HATE to BE YOUR MUMMY";goto 1640
:return ;run 
